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Toa y como se comentó con anterio- 
ridad, desde el punto de vista del 
software, el sistema operativo es el 
alma del ordenador. Es él quien se 
encarga de comunicarle con el exte- 
rior, es decir, con la pantalla, la me- 
moria y el teclado — periféricos fun- 
damentales — y los otros periféricos 
(impresoras, plotters, disquetes, dis- 
cos, cassettes, etc., etc.). 

El conjunto de rutinas que compo- 
nen los sistemas operativos integran 
un cuerpo básico de operaciones ele- 
mentales constituyendo, a nivel de 
sistema, lo mismo que las microins- 
trucciones a nivel de microprocesa- 
dor (ver parte | de esta serie). Así, el 
software de base (lenguaje BASIC, 
por ejemplo), utiliza rutinas del siste- 
ma operativo en la ejecución de sus 
comandos (PRINT, por ejemplo, como 
se verá más adelante) del mismo mo- 
do que el código máquina necesita de 
las microinstrucciones del micropro- 
cesador para ser ejecutado. Queda 
claro pues que aunque los lenguajes 
y utilitarios utilicen el sistema opera- 
tivo, existe una notable diferencia en- 
tre dichas entidades y sus niveles de 
actuación: el sistema operativo es el 
elemento fundamental sin el cual los 
otros no son operativos. 

Más adelante, analizaremos algu- 
nos sistemas operativos para micro- 
ordenadores; unos propios (CP/M, 
MS/DOS, etc.) y otros adaptados de 
los existentes para minis (UNIX, 
XENIX, OASIS, BDOS, etc.). Ahora 
nos detendremos —sin partidis- 


(continúa en la pág. siguiente) 


VENTANA CBM 


READY 
(del chip a la base 
de datos) (3) 


por RAFAEL NAVARRO (M.E.C. SOFT.) 


TABLA 1.1. RUTINAS KERNAL DE MANEJO DE MEMORIA 
Dirección 
Nombre Hexadecimal Decimal Uso 


IOBASE SFFF3 65523 Devuelve la dirección de base de los 
periféricos 1/0. 

MEMBOT  SFF9C 65436  Lee/fija la dirección del menor byte 
de RAM. 

MEMTOP  SFF99 65433  Lee/fija la dirección del byte más 


alto de RAM. 


TABLA 1.2. RUTINAS KERNAL DEL TECLADO 
Dirección 
Nombre Hexadecimal Decimal Uso 


GETIN SFFE4 (1) 65512 Coge un carácter desde el «buffer» 
del teclado. 

SCNKEY  SFF9F 65439 Explora el teclado y pone los valores 
en el «buffer» del teclado. 

STOP SFFE1 (1) 65505 Chequea la tecla STOP. 


EDITORIAL 


sólo cuatro líneas 


Este mes el editorial es especialmente corto. Sólo queremos 
expresar nuestro contento porque hemos recibido suficientes co- 
laboraciones para llenar un número de la Revista. ¡Gracias a los 
colaboradores presentes y futuros y a ver sí cunde el ejemplo! 
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VENTANA CBM 


READY (del chip 
a la base de datos) 


(continuación) 


mos — en el desarrollado por COM- 
MODORE. 


EL KERNAL 


Uno de los principales problemas 
de cara a los programadores en el 
campo de los micro-ordenadores es el 
miedo a las modificaciones que el fa- 
bricante pueda hacer en el ordenador. 
Los programas en lenguaje máquina 
no durarían mucho tiempo, obligando 
a continuas revisiones. Commodore 
ha desarrollado un conjunto de ruti- 
nas llamadas rutinas KERNAL (siste- 
ma operativo) para evitar que el pros 
gramador tenga que realizar gran can- 
tidad de cambios cuando se provee 
de una nueva versión del sistema 
operativo. 

A dichas rutinas de sistema opera- 
tivo se accede a través de una tabla 
de saltos standard. Estas rutinas se 
encargan del procesamiento de las 
funciones de entrada/salida y de ma: 
nejo de memoria. 

La tabla de saltos Kernal está loca- 
lizada en una sección protegida de la 
memoria del ordenador. Cuando se 
añaden nuevas rutinas Kernal, la ta- 
bla de saltos es actualizada automáti- 
camente. 

Si se usan las rutinas Kernal al es- 
cribir. un programa en código máqui- 
na, no hay que preocuparse por el 
hecho de que futuras modificaciones 
del sistema operativo hayan de pro- 
vocar la reescritura de la mayor parte 
del programa. Cualquier cambio se re- 
flejará en las nuevas rutinas Kernal 
que acompañan a la nueva versión del 
sistema operativo no provocando la 
reescritura de los programas, sino 
simplemente su reensamblaje. 


1.1. CLASIFICACIÓN DE LAS 
RUTINAS KERNAL 


Todas las rutinas Kernal están es- 
tructuradas como subrutinas que se 


TABLA 1.3. 


Dirección 
Nombre Hexadecimal Decimal 


PLOT SFFFO 


SFFED 


65520 


SCREEN 65517 


RUTINAS KERNAL DE PANTALLA 


Lee/fija la corriente posición X,Y del 
cursor en pantalla. 

Devuelve la organización de la panta- 
lla como el número de columnas (X) 
y filas (Y). 


TABLA 1.4. RUTINAS KERNAL DEL RELOJ 


Dirección 
Nombre Hexadecimal Decimal 


RDTIM SFFDE 


SETTIM 
UDTIM 


SFFDB 
SFFEA 


TABLA 41.5. 


Dirección 
Nombre Hexadecimal Decimal 


LKUPLA  SFF8D 65415 


LKUPSA  SFF8A 65418 


SETLFS SFFBA 65466 


SETNAM  SFFBD 65469 


Lee el reloj del sistema que devuelve 
AM/PM, horas, minutos, segundos, y 
décimas de segundo. 

Fija el reloj del sistema. 

Incrementa el reloj del sistema (nor- 
malmente usada por las rutinas del 
sistema de interrupción). 


RUTINAS KERNAL DE CONTROL DE PERIFÉRICOS 


Definir los parámetros de fichero ba- 
sados en la información de dirección 
lógica. 

Definir los parámetros de fichero ba- 
sados en la información de la direc- 
ción secundaria. 

Fijar el número de fichero lógico, nú- 
mero de periférico, e información del 
comando. 

Fijar la información del nombre de fi- 
chero. 


TABLA 1.6. RUTINAS KERNAL DEL BUS [EEE * 


Dirección 


Nombre Hexadecimal Decimal 


ACPTR 
CIOUT 


LISTEN 
SECOND 


SFFAS 
SFFAS 


SFFB1 
SFF93 
SETIMO — SFFA2 
TALK SFFB4 
TKSA SFF96 
UNLSN SFFAE 


UNTLK SFFAB 


Acepta un byte de entrada desde el 
IEEE con total «handshaking». 

Envía un byte al IEEE con total «hand- 
shaking». 

Escucha con atención en el JEE bus. 
Envía un comando secundario des- 
pués de LISTEN. 

Activar/desactivar fueras de tiempo 
(timeouts) sobre el bus lEEE. 

Enviar una dirección de escucha al 
JEEES 

Enviar una dirección secundaria para 
escucha (TALK). 

Comanda el IEEE a UNLISTEN (cierra 
el IEEE para escucha). 


“ Comanda el IEEE a UNTALK (cierra 


para diálogo). 
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VENTANA CBM 


llaman desde su programa, suminis- 
trándole información a algunas ruti- 
nas y recibiendo información desde 
otras. Ello significa que se llamará la 
rutina con una instrucción JSR. La ru- 
tina finaliza con una instrucción RTS 
y vuelve a la instrucción siguiente a 
la instrucción JSR que la llamó. «Mi- 
croelectrónica y Control» tiene edita- 
dos varios manuales en los que se 
detalla la utilización del KERNAL: 


— rutinas de tratamiento de me- 
moria; 

— rutinas de teclado; 

— rutinas de pantalla; 

— rutinas del sistema de reloj; 

— rutinas de control de periféricos; 

— rutinas de control de ficheros; 

— rutinas del bus IEEE; 

— rutinas de canal; 

— rutinas de vector; 

— rutinas de control del sistema; 

— rutinas de dirección de memoria 
/periférico. 


Estas categorías se establecen sim- 
plemente para tener una visión de los 
tipos de funciones disponibles a tra- 
vés de las rutinas Kernal. Algunas 
rutinas, especialmente las que inter- 
accionan con los periféricos y el bus 
1EE-488 se extienden en varias cate- 
gorías. Las tablas 1.1 hasta 1.11 mues- 
tran las rutinas de cada categoría. 
Aquellas que son llamadas indirecta- 
mente están marcadas con un «(1)» 
después de la dirección hexadecimal. 


TABLA 1.11. CÓDIGOS DE 
ERROR DEL KERNAL 
Código 
error 


significado 


o 


Rutina interrumpida por la 
pulsación de STOP 
Demasiados ficheros abiertos 
Fichero ya abierto 

Fichero no abierto 
Fichero no encontrado 
Periférico no presente 

No es fichero de entrada 
(y se intenta input) 

No es fichero de salida 

(y se intenta output) 

Se ha omitido el nombre 
del fichero 

Número de perif. ¡legal 


[co] co = ONARON- 
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TABLA 1.7. RUTINAS KERNAL DE CANAL 
Dirección 
Nombre Hexadecimal Decimal Uso 


CHKIN SFFCE (1) 65478 Abre un canal para entrada. 

CHKOUT  SFFC9 (1) 65481 Abre un canal para salida. 

CHRIN SEFCEF (1) 65487 Acepta un carácter de entrada desde 
el canal. 

CHROUT  SFFD2 (1) 65490 Envía un carácter de salida al canal. 

CLRCHN  SFFCC (1) 65484 Borra todos los canales. Cierra todos 


los canales abiertos y restablece los 
canales por defecto. 


TABLA 1.8. RUTINAS KERNAL DE VECTOR 


Dirección 


Nombre Hexadecimal Decimal Uso 


RESTOR — SFF87 65415  Restablece los valores por defecto de 
los vectores de las subrutinas del 
sistema e interrupciones. 

VECTOR — SFF84 65412  Lee/fija el contenido actual de los 


vectores RAM del sistema. 


TABLA 1.9. RUTINAS KERNAL DE CONTROL DEL SISTEMA 
Dirección 
Nombre Hexadecimal Decimal Uso 


READST  SFFB7 65463 
SETMSG  SFF90 65424 


Lee la palabra de estado del sistema. 
Control de impresión de los mensajes 
de error Kernal y los mensajes de 
diagnóstico. 


TABLA 1.10. RUTINAS KERNAL DIRECTAS MEMORIA/PERIFÉRICO 
Dirección 
Nombre Hexadecimal Decimal Uso 


LOAD SFFD5 (1) 65493 Carga directa desde un periférico en 
RAM. 
SAVE SFFD8 (1) 65496 Graba directamente en un periférico 


desde RAM. 


Las presentes tablas contienen 
TODAS las rutinas KERNAL, algunas 
de las cuales no están disponibles en 
todos los modelos de CPU por no 
disponer éstos de tantas posibilida: 
des (RS232C, por ejemplo). 

Por otro lado, el Kernal emite, in- 
dependientemente de sus equivalen- 
tes BASIC, un cierto número de men- 
sajes de error internos. Dichos men- 
sajes serán posteriormente tratados 
por los lenguajes y comunicados en 
su caso al operador. Recordad que en 
el caso de Commodore, el lenguaje 
BASIC se encuentra siempre residen- 
te junto al Kernal, actuando de modo 
íntimamente relacionado con él. 


En su versión de base (en los equi- 
pos actuales, cuando menos) Com- 
modore no prevé gestiones de fiche- 
ros de claves, tablas ni tratamiento 
de pantallas especiales [aunque po- 
see un avanzado y fácilmente com:- 
prensible manejo de ficheros y un 
excelente editor de pantalla en sus 
sistemas). Es por ello que el departa- 
mento de software MEC.SOFT, ha 
desarrollado un sistema operativo co- 
residente con el Kernal y un cointer- 
pretador BASIC para el mismo, lla- 
mados MEC/DOS en su conjunto. 

* * * 

Nota: Las rutinas de la tabla 1.7, rutinas 

de canal, también se aplican al bus IEEE. 
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JUEGOS 


Correlaciones 


Dentro del trabajo estadístico, cada 
día más necesario, las correlaciones 
ocupan un campo muy importante. 
Y el tratamiento informático permite 
que lleguen a él personas poco prác- 
ticas en estadística. 

Voy a explicarlo, referido al campo 
de correlaciones, con dos ejemplos, 
para que cualquier «VlCadicto» pue- 
da manejarlo a su antojo y obtener 
buenas prestaciones. Se tratará de 
ver en cada ejemplo si dos dimensio- 
nes guardan alguna relación de de- 
pendencia entre sí, y si esa relación 
está en proporción directa o inversa. 


1. «Supongamos que se decide ha- 
cer un curso para mandos interme- 
dios en una Empresa, a base de cla- 
ses teóricas(X) y prácticas(Y), y que 
la gerencia desea saber si los pro- 


1 PRINT"C CLR TAMMMKCORRELAC TONE Sade 


19 X=0:=0:P=0:0=0:J=0 

15 REM ENTRAR DATOS 

20 INPUT"CASOS="¿N 

25 DIMACN) ¿BON>,CLN> DINO ANO UNA 


FORI=1TOM 

PRINT"YALOR"I"DE X=": INPUTXCI> 
PRINT"WALOR"I"DE Y=":INPUTY<I> 
NEXTI 
REM PROMEDIOS 

FORI=1TON 

X=x+xXC 10 == + Io 

NEXTI 

M=xX/N:T=W/N 

REM DESYIACIONES 

FORI=1TON 

ACI=XC IM 

BC = YC IST 

CCI>=AC IA TZ 

D<1I>=BC1I>T2 

NEXTI 

FORI=1TON 

P=P+CC1I> 

0=0+DC1> 

NEXTI 


LISTADO 


por DANIEL GIMÉNEZ CAPILLA 


gramas de los cursos estaban bien 
montados. Los promedios obtenidos 
en las clases son: 


(X)TEORIA 3-5-4-7-8-3-4-2-6-8-9-6-5-5 
(Y)PRACTI 4-2-7-6-8-5-5-3-7-9-5-8-5-2 


Total: 14 asistentes a clase. 


Entramos el programa. Responde- 
mos los INPUT en la forma: «Valor 1 
de X=3/valor 1 de Y=4/valor 2 de 
X=5/valor 2 de Y=2/etc. El VIC nos 
dice inmediatamente después del 
RETURN final: 


COEF. CORRELACION: 0.52 
MINIMA CORRELACION 


La conclusión está a la vista: algu- 
na cosa ha fallado en el sistema de 
formación; se está gastando dinero 


FORI=1TON 

L<I>=ACIMBC IO 

J=IHLCIO 

NEXTI 

FORI=1TON 

K=SORCP> ¿F=SQRCO) ¿R=J/CKMF > 
PRINT"[ CLR 1" 
PRINT"COEF . CORRELACION="R 
FORA=1T07 :¿PRINT ¿NEXTA 

REM EFICACIA 
IFR>1THENPRINT"ERROR DE CALCULO 


IFR<. STHENPRINT"NO HAY CORRELAC 


252 IFR=>.SANDR=<. 6THENPRINT "MINIMA 
CORRELACION" 

253 IFR<. 6ANDR>. 7THENPRINT"CORRELAC 
ION ACEPTABLE" 

254 IFR=>.7ANDR<. S1THENPRINT"ALTA C 
ORRELACION" 

255 IFR=>.S81ANDR<1 THENPRINT"MUY ALT 
A —CORRELACION" 

256 IFR=1THENPRINT"CORRELACION PERF 
ECTA" 

257 END 

READY. 


en algo que no cubre bien los obje- 
tivos propuestos.» 


2. «En una Empresa se encarga a 
dos examinadores seleccionar a un 
ejecutivo. Van a valorar: (AJESTU:- 
DIOS, (B)PRESENCIA, (C)ATRACTIVO, 
(D)JEXPERIENCIA, (EJDECISION y (F) 
MADUREZ PERSONAL. Una vez valo- 
rado, las puntuaciones de cada juez 
fueron: 


Aspecto Juez X Juez Y 


No. _a2. on 
V0BOoO0ucanN—- 


Cuando las valoraciones pasaron 
por el VIC, el jefe de Empresa decidió 
enviar a los dos examinadores a pa- 
seo y entrevistar personalmente al 
candidato, ¿por qué? 

Entremos el programa y veamos si 
había correlación entre ambas apre- 
ciaciones. 


e $ Ne ee 


El programa puede simplificarse, 
pero lo he hecho en forma didáctica 
para que se vea más clarito, por si 
hay alguien a quien interesa aprender 


estadística de paso. De todas mane- 


ras, hay que andarse con ojo con las 
dimensiones para que el VIC no nos 
sorprenda con su aterrador OUT OF 
MEMORY. El 


Y club commodore 
5 


JUEGOS 


Bombardeo 


M. llamo Clemente Pérez Rodríguez, 
vivo en Zaragoza, tengo 22 años y es- 
toy suscrito a «Club Commodore», 
revista que encuentro muy interesan- 
te aunque es cierto que faltan cola- 
boraciones. 

Por eso, queriendo aportar mi gra- 
no de arena, os envío un programa 
que he creado. Se trata de un juego 
que me parece original aunque haya 
otros parecidos. 

Consiste en lo siguiente: 

Un bombardero sobrevuela una ca- 
sita y trata de alcanzarla con una 
bomba. La bomba se suelta pulsando 
la letra «B» pero no cae verticalmente 
sino que describe una trayectoria pa- 
rabólica que depende de la velocidad 
del avión y de la altura a la que se 
encuentra. 

La velocidad es aleatoria y el avión 
comienza volando por la parte alta de 
la pantalla. Cada vez que cubre una 


199 PRINT"UN MOMENTO, POR FAVOR" 
119 A=7168:FORI=ATOA+511:POKEI ,PEEK 
(1425690) ¿NEXT 
120 READN: IFNTHENFORN=NTON+15 :READA 
¿POKEN, A :NEXT :GOTO128 
130 POKE36879,59 
149 POKES6,23:POKES2,28:POKESS,0:PO 
KE36869,255 
150 PRINT"[ CLR J[ BLK JURYSONICCRSROI 
[CRSRDICCRSRDICORSRDICORSRDICCRSROJ 
TORSRDILORSRDI CORSRDICORSRARICORSARI 
CLEMENTE PEREZ R. CRYSOFI" 
160 PRINT"CRYSONJUCRSRDICCRSRDICORSRDI 
TORSPRILORSRRICORSARICORSARICORSRRI 
[CRSRRIPRESENTA : IRVSOFI" 
170 GOSUB74D 
180 PRINT"[RYSONJT CLR JCCRSRRICORSRRAI 
[CRSRRILORSRARICORSRDICORSRDICCRSRAOI 
[CRSROJEL BOMBARDEROCRYSOF 3" 
190 PRINT"[RYSONICCRSROJCCRSROICORSRODI 
[CRSRDITORSRDICCRSROICORSAA IBOMBARD 
ER LA CASITACRYSOF 1" 
200 PRINT"URYSONITCRSROJLCRSARIUSAN 
DO LA LETRA ¿B-TRYSOFI" 
210 GOSUB790 
220 PRINT"[ CLR J" 
220 POKE36869,255 
240 B=3:5=0 
250 FORN=8164T08185:POKEN,S :POKEN+3 
0720,5:NEXT 
260 FORN=8164708163+B:POKEN, 4 :POKEN 
+30720,4 NEXT 
C=INTORND(1)K11)+8175 
POKEC,2:POKEC+20720,2 
POKE36872, 12 :POKE36877,150 
Y=INT<RNOC1)43>+1 3 1FV=2THENV=4 
ss=" "+STRSCS) :SE=RIGHTSCSS$ 


PRINT"[HOME JL[CRSRRICCRSARICORSRRAI 


por C. PÉREZ RODRÍGUEZ 


línea, baja un poco, siendo más fácil 
hacer blanco. Pero si bajamos dema- 
siado perderemos la oportunidad de 
disparar. 

El número de veces que se puede 
bajar depende de la velocidad y el 
azar. 

Disponemos de tres bombas pero 
cada vez que se hace blanco son res- 
tituidas. El tanteo por hacer blanco 
depende de la altura, la velocidad y 
de si hemos acertado a la casita de 
lleno. 

El programa tiene sonido, colores 
y caracteres propios. Ha de ejecu- 
tarse sin expansión de memoria. 

¡Buena suerte! 

La estructura del programa es la si- 
guiente: 


100-230: Instrucciones y creación de 
caracteres 
240: Bombas y tanteo iniciales 


LISTADO 


CCRSRRICORSARICORSARICORSRRICORSRRI 
[RVSONI" 35$;"[RVSOFI" 

330 POKE198,0 

340 FORY=1TO3%<V+INT<RNDC 1343) >)STEP 
3 

350 FORX=9T020 

360 K=7630+YH22+X 

379 POKEK+30720,9:POKEK+30721,0:POK 
EK,0:POKEK+1,1 

380 FORT=1T030/W ¿NEXT 

390 GETAS:1FAS="B"THEN440 

400 POKEK,160:POKEK+1,169 

410 NEXTX,Y 

420 PRINT"[HOME JCRYSONI[ BLK JLCRSRDI 
TCRSRDIECRSRDI [CRSRDILCRSRDITCRSRDI 
[CRSRRICCRSARI CORSRRICORSRRICORSRRI 
[CRSRRICCRSRRICCRSRRILENTO! [RYSOF 1" 


FORT=1T010090 ¿NEXT :GOTO710 
YI=YW+11X1=X :K=K-X 
L=230 
FORWI=Y1TO21 
TFX<21THENPOKEK+X+30721 ,0 :POKEK 
0 :POKEK+X+1,1:G0T0499 
POKE36877,0 
L=L-1:POKE368376 ,L 
O=INT((V+2IRSORC21=M15/12> 
XI=X1+0 2 1FX1>21THENS70 
G=76380+22b1+X1 
L=L-1 :POKE36376,L 
POKEG+30720,4 :POKEG, 4 
FORT=1T019:NEXT 
L=L-1 :POKE36876,L 
POKEG,160 
POKEK+X, 160 :POKEK+X+1,32:X=X+1 
L=L-1 :POKE36876.L 
NEXT 
=8142+X1 : 1FG<3164THENS540 
1FG=3164 THENPOKE339095,1 :POKES13 


60T0669 


250-300: Dibuja el blanco y da la ve- 
locidad del avión 

310-320: Imprime el tanteo 

330-410: Vuelo del avión esperando a 
que se pulse «b» 

420-430:-Imprime «LENTO» si se ha 
perdido la oportunidad de 
disparar 

440-600: Trayectoria de la bomba y 
del avión 

610-700: Dibuja y sonoriza la explo- 
sión y comprueba si ha habi- 
do blanco 

710-730: Final de partida 

740-780: Subrutina silbido de la bom- 
ba 

790-830: Subrutina ruido de explosión 

840-880: Data para generar caracte- 


res 


Algunas de las variables que se 
utilizan: 


O- Variable de ayuda en la tra- 
yectoria de la bomba 
C- Situación del blanco 
E- Error en el blanco 
XI, WI - Coordenadas de la bomba 
G - Situación de la bomba 
X,Y - Coordenadas del avión 
K- Situación del avión 
S,S$ - Puntuación 
Y] - Altura desde la que se lanzó 
la bomba 
V- Velocidad del avión 
B- Número de bombas disponi- 
bles la] 


640 POKEG+30720,1 :POKEG+30741,1 :POK 
EG+30742,1 :POKEG+30743,1 
£50 POKEG.3:POKEG+21,6 :POKEG+22,7:P 
OKEG+23,6 
£60 GOSUB79D 
670 IFPEEK(C>=2THEN710 
580 E=01 1FPEEK(C>=6THENE=S 
690 B=3:3=5+(27-YIMV-E 
700 PRINT"[ CLR 3":60T10259 
710 B=8-1:[FB=9THENPRINT" [HOME JCRYSONI 
ECRSRDILORSRDI [CRSRDICCRSROTECASADI 
ECRSRDILCORSRDI [CCRSRDICORSRATLCRSARI 
[CRSRRILCRSRRICORSRRICORSARICORSARI 
ECRSRRICERSRAIF INCCRSRDICCORSROJIICRSAOI 
CCRSRLICORSALICORSALICORSALICCRSAL 
ECRSRLIPULSA CTRLERYSOF 1" :POKE3E6377 
,0:60T0739 
PRINT"[ CLR 3":60T02509 
POKE198,0:WAIT653,4:G0T0159 
POKE36373,19 
FORL=230T0150STEP-1 :¿POKE36876,L 


FORM=1T016 :¿NEXTM,L 

POKE36376,09:P0KE36378,0 

RETURN 

POKE26377,228:POKE36876,9 

FORL=15TO9STEP-1 :POKE36873,L 

FORM=1T0259 :NEXTM,L 

POKE36877,0:P0KE368783,0 

RETURN 

DATA 7163 ,193,226,255,255,235, 
255,0,0,242,170,254,255,234,230,98, 


a 

350 DATA 7200 ,0,40,56,56,16;16,9,9 
,9,0,0,0,0.0,0,255 

$860 DATA 7184 ,24,60,126,255,66,90, 
90,126,24,94,255,127,255,118,60,24 
870 DATA 7216 ,0,24,56,308,191,255,2 
55,255,60,90,60,24,26,219,255,255 
388 DATA 9 

READY. 
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COLABORACIONES 


dibujo en 
perspectiva (''dibuvic””) 


E ste programa permite la repre- 
sentación en pantalla de una figura en 
perspectiva. 

La forma de hacerlo es mediante 
una matriz (matriz de proyección, 
PRO en el listado). 


30 GRAPHICO :GOSUESDOO :PRINT"[ CLR J 
MENUCCRSRDICCRSRLICCORSRLICORSRL I 

[CRSRLI----" 
AL=-.78:BE=.78:0A=-.78 
Cx=500 :CW=500 :ES=10 
PRINT"[CRSRDI 1 END" 
PRINT"[CRSRDJ 2 CREAR DATOS" 
PRINT"(CRSRDI 3 DIBUJAR" 
PRINT"[CRSRDI 4 CREAR FIC.CINTA 
PRINT"[CRSRDI 5 LEER FIC.CINTA" 
INPUT" [CRSRDICCRSRDIOPCION "3A 

100 ON A GOTO 690,110,220,580,640,1 

500 

110 CLR:AL=-.78:BE=.78:6A=-.78 

114 CX=500 :CV=500 :ES=10 

113 PRINT"[ CLR ICCRSRDICCRSRDICERSADI 

"+ INPUT"NO. DE PUNTOS" ¿N:DIMA(N,3>, 

BSs(N> ,PRO(3,2)> 

120 FORI=1TON:FORJ=1TOS:PRINTI¿" 

ACI", “IM)="3 2 INPUTACI,J> ¿NEXT :NEX 

r 

130 PRINT"PUNTO","CODR. * 

140 PRINT" , 

150 K=N:R=1 :IFK>20THENK=20 

160 FORI=RTOK:PRINTIZ¿" <"ACI,1>"," 

A(1,27","AC1,3">" ¿NEXT :GOSUB19000 : 

IFISNTHEN1SO. 

170 IFN>20THENR=N-20 :K=N :G0TO160 

1390 PRINT"[ CLR JICRSRDICCRSRDIDAME 

LA LISTA DE CONEXION ENTRE PUNTOS 

EJ. (6512> QUE SERA EL 1 CONECTADO € 

ON" 

190 PRINT" EL 65 Y TAMBIEN CON EL 

12> 

200 FORI=1TON:PRINT"NUDO "17: INPUT 

$CI> ¿NEXT 

210 GOTOSO 

220 GRAPHICO:PRINT"[CRSRDI FUNCIONA 


MIENTOLCRSRDICCRSRL ICCRSALICORSALICORSALI 


ECRSRLICCRSRALICCRSALICORSAL 1 LCCRSAL 
ECRSRL IUCRSRLI[CRSRALICORSALICCRSAL 


Esta matriz de tres elementos por 
dos, es una función proyección del 
espacio en el plano. 

Bueno, en resumen, que teniendo 
las coordenadas de los puntos, apli- 
cándoles esta matriz, efectuar su pro- 


ESTADO 


230 PRINT"ICRSRDI A-S GIRA SEGUN XX 
240 PRINT"ICRSRDI B-N GIRA SEGUN YY 
250 PRINT"ICRSRDI G-H GIRA SEGUN 22 


260 PRINT"[CRSRDI + 
A" 

270 PRINT"[CRSRDI - 
ALA" 

273 PRINT"[CRSRDI 1 


275 PRINT"[CRSRDI / RUN MENU" 

284 PRINT"CCRSROJICRSRDIPULSE [ BLU 
CRYSONICRYSOF I" 

290 GETAS:1FAS=""THEN290 

300 GRAPHICZ:COLORO,0,1,1 

320 PROC1,1>=CSINCOAIRCOS CAL )-COS CG 
PIRSINCBERSINCALI RES 

330 PROC(1,2=(COSCGA>)RSINCBE >ACOSCA 
L>+SINCGARSINCAL II MES 

340 PROC2,1>=<COSCOAARCOSCAL IAS INOG 
PIRSINCBE>RSINCAL RES 

350 PRO(2,2=(COS<GAIRS INCAL)SINCG 
PRSINCBE ARCOS CALIIMES 

360 PRO(2,1>=(-SINCAL>ACOSCBE > MES 

3790 PRO(3,25=COSCAL)FCOSCBE>4ES 

330 FORI=1TON:R=WRAL<RIGHTECBEC IS, 25 
> ¿S=VAL(LEFTS(BEC 17.27) 

2385 X1=ACI, 1 9)RPROC1,19+AC1,ZIRPROCZ 
¿»13>+ACI,3>RPROC3, 14D 

390 W1=AC1,1>*PROC1,27+AC1,24PROCZ 
¿22+AC1,IRPROC3, 24 

400 X2=A.R,1>+*PROC1,1>+ACPR,2IRHPROCZ 
+ 19 +ACR,IIRPROC3, 19+0X 

410 Y2=4"R,1)RPROC1,2+ACR,Q2I)RPROCZ 
¿LDFAACR,IRPROC3, 240 

420 X3=ACS,1>4PROC1,19+AC5,24FROCZ 
+ 104ACS,ZIRPROCS. 194 0X 

430 Y3=A3,15PROC1,2+A0S, 2 RPROCZ 
¿2IAACS,IIRPROC3, 240 

940 DRANZ,X1,Y1 TO X2,Y2:DRALN2,X1 Y 
1 TO 43,Y3:HEXT 

454 CHAR139,0,">" 


AUMENTA ESCAL 


DISMINUYE ESC 


INSTRUCCIONES 


por ALFONSO IZQUIERDO FONT 


ducto, nos resulta un punto en el 
plano, con dos coordenadas. 

Esta matriz es la que resulta de 
todo el complejo aparato matemático 
de Euler, siendo función de unos án- 
gulos, ángulos de visión. Tres ángulos 


GETAS:1FAS$=""THEN450 
IFAS="R"THENAL=AL+. 2 
IFAS="S"THENAL=AL=. 
IFAS="B"THENBE=EE+. 2 
IFAS="N"THENBE=EE-.2 
IFAS="G"THENGA=6HA+. 2 
IFAS="H"THENGA=6A-. 2 
IFAS="+"THENES=ES+S 
IFAS="-"THENESSES-S 
IFA$="1"THEN 220 
IFAS="/"THEN 30 
SONCLR :G0TO320 
PRINT"[ ELR 1 COLOCA LA CINTA L 
ISTA PARA GRABAR" 
590 PRINT"CCRSROJICCRSRDINOMBRE DEL 
ARCHIVO" : INPUTNS 
600 OPEN1,1,1,NS$:PRINTR1,N 
619 FORI=1TON:FORJ=1T103:PRINT*1,ACI 
+J> ¿NEXT ¿NEXT 
620 FORI=1TON:PRINTH1,B$C 1) ¿NEXT 
630 CLOSE1 
635 50TO030 
640 CLR:PRINT"C[ CLR JICRSRDICORSRDI 
HOMBRE DEL ARCHIWO": INPUTNS 
650 OPEN1,1,0,N$: INPLUITR1,N 
660 FORI=1TON:FORJ=1T03: INPLUTRH1,ACI 
+ J> ¿NEXT ¿NEXT 


670 FORI=1TON+INPUTRH1,B$C1) :NEXT 
630 CLOSE1 

£25 GO0TO30 

698 END 

5000 POKE36364,12:POKE36865,38 :RETU 
RN 

10000 PRINT"SON CORRECTOS ESTOS Pp 
UNTOSCS/N>" : INPUTAS 

10019 IFAS<>"N" THENRETURN 

10020 PRINT"[CRSRUICORSAIJIDA EL PUN 
TO INCORRECTO CFIN CON 9" 

1900390 INPUT"NO. ' CODR.“:2,A,B,0 
100940 IF2Z<OMTHENACZ.13=A:A(Z,2=B:A 
¿2,3=C :G0TO010030 

19959 RETURN 

READY. 
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que determinan la forma de divisar el 
objeto. 


NO ES NECESARIO ENTRAR 
PARÁMETROS DE DIBUJO 


El programa trabaja en perspectiva 
isométrica y no es necesario entrar 
parámetros de dibujo. 

Los únicos parámetros que debe- 
mos entrar son los puntos que tendrá 
la figura y la conexión entre ellos ya 
que el programa no dispone de una 
forma fácil la disposición del dibujo. 


EL PROGRAMA OFRECE 
DISTINTAS OPCIONES 


Dentro de todo esto, el programa 
tiene una serie de opciones bastante 
interesantes, desde la de entrar la 
figura hasta la de modificar las coor- 
denadas de un punto de ella, pasando 
por el cambio de punto de vista de la 
figura, paseándola por toda la panta- 
lla, modificando la escala, y variando 
los ángulos de vista. 


MANEJO DEL PROGRAMA 


El manejo del programa es sencillo. 

Lo primero es entrar los datos. 
Esto se efectúa dando el número de 
puntos que posee la figura. 


Después, debemos entrar las coor- 
denadas de todos los puntos, tenien- 
do en cuenta que la numeración que 
nos presenta el ordenador por panta- 
lla es la que utilizaremos para la co- 
nexión entre puntos. 

Cuando hemos finalizado esta ta- 
rea, podemos corregir algún dato 
erróneo que hayamos entrado. 

La entrada de datos para la cone- 
xión es igual de sencillo: 

Debemos entrar cuatro caracteres 
por número presentado en pantalla. 

Estos cuatro caracteres son dos pa- 
ra el:«primer punto conectado, y los 
dos siguientes para el segundo. 

Por ejemplo, si entramos un te- 
traedro, entraríamos: 


1 0 return 
o ” 


Y después deberíamos entrar la co- 
nexión entre puntos: 


0203 
0304 
0401 
0102 


Ph oNn- 


Esto aunque parezca insuficiente, 
no lo es ya que podemos entrar to- 
das las conexiones y además, nos 
sobrará. 

Si sucede esto, sólo tenemos que 
hacer que el ordenador nos dibuje 
dos veces una misma línea repitien- 
do, si es necesario, alguna conexión. 

Cuando hemos acabado todo esto, 
es conveniente grabar los datos, y 
proceder a dibujar. 

Para dibujar, sólo tendremos que 
pulsar el 3 en el menú y nos aparece- 
rá una explicación del funcionamiento 
interactivo del programa. 

Del resto del programa huelgan co- 
mentarios, ya que son apartados que 
se explican solos en él. 

Es fácil que este programa sirva 
para la docencia, para la visualización 
de figuras, cosa que cuesta mucho a 
los estudiantes. 


DIFERENTES POSIBILIDADES 
DE DIBUJO 


También es de destacar, la posibili- 
dad de dejar la figura en planta, alza- 
do o perfil, lo que también es muy 
interesante. 7 


BOLETÍN DE SUSCRIPCIÓN - club commodore 


NOMBRE 
DIRECCIÓN 


Deseo iniciar la suscripción con el n.* 15 


(Enviar a la dirección del dorso) 


DESEO SUSCRIBIRME A “CLUB COM- 
MODORE” POR UN AÑO AL PRECIO 
DE 1.980 PTAS., QUE PAGARÉ CON- 
TRA REEMBOLSO AL RECIBIR EL NÚ- 
MERO CON EL QUE SE INICIA LA SUS- 
CRIPCIÓN. DICHA SUSCRIPCIÓN ME 
DA DERECHO, NO SÓLO A RECIBIR LA 
REVISTA (ONCE NÚMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC- 
TIVIDADES QUE SE ORGANICEN EN 
TORNO A ELLA Y QUE PUEDEN SER: 
COORDINACIÓN DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 
MAS, CONCURSOS, ETC. 
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clave para 
interpretar 
los listados 
de CLUB 
COMMODORE 


Todos los listados que se publican 
en esta Revista han sido ejecutados 
en el modelo correspondiente de la 
gama de ordenadores COMMODORE. 
Para facilitar la edición de los mismos 
en la Revista y para mejorar su legibi- 
lidad por parte del usuario, se les ha 
sometido a ciertas modificaciones me- 
diante un programa escrito especial- 
mente para ello. Para los programas 
destinados a los ordenadores VIC-20 
y COMMODORE 64, en los que se 
usan frecuentemente las posibilida- 
des gráficas del teclado, se han susti- 
tuido los símbolos gráficos que apa- 
recen normalmente en los listados por 
una serie de letras entre corchetes [] 
que indican la secuencia de teclas que 
se deben pulsar para obtener el carác- 
ter deseado. A continuación se da una 
tabla para aclarar la interpretación de 
las indicaciones entre corchetes: 


[CRSRD] = Tecla cursor hacia abajo 
(sin SHIFT) 

[CRSRU] = Tecla cursor hacia arriba 
(con SHIFT) 

[CRSRR] = Tecla cursor a la derecha 
(sin SHIFT) 

[CRSRL] = Tecla cursor a la izquierda 
(con SHIFT) 

[HOME] = Tecla CLR/HOME 
(sin SHIFT) 


¿Necesita ampliar 
sus conocimientos 
de informatica? 


Mande Boletin | 
suscripción 
Revista con sus 
datos 


[CLR] = Tecla CLR/HOME 
(con SHIFT) 


Las indicaciones [BLK] a [YEL] co- 
rresponden a la pulsación de las te- 
clas de 1 a 8 junto a la tecla CTRL. 
Lo mismo sucede con [RVSON] y 
[RVSOF] respecto a la tecla CTRL y 
las teclas 9 y 0. 

El resto de las indicaciones cons- 
tan de la parte COMM o SHIF seguidas 


club 


1 
| 


de una letra, número o símbolo — por 
ejemplo [COMM+] o [SHIFA] —. Es- 
to indica que para obtener el grá- 
fico necesario en el programa deben 
pulsarse simultáneamente las teclas 
COMMODORE (la que lleva el logo- 
tipo) o una de SHIFT y la tecla indi- 
cada por la letra, el número o el sím- 
bolo, en el ejemplo anterior: COMMO- 
DORE y + o SHIFT y A, respectiva- 
mente. | 


commodore 


microelectrónica 
y control s.a. 


Taquígrafo Serra, 7, 5.* planta 
BARCELONA - 29 


pa 
E cl O E E E E A A 


BOLETIN DE PEDIDO 


enviar a: SAKATI, S. A. Ardemans, 24. MADRID-28 


2cha: 


Laa 11) calle 


ovincia 


SAKATI, S.A. Proresióna: 
Ardemans, 24 - Madrid-28 - Tel. 2567794 - Telex 44222 CICI E 


¿ES UD. USUARIO DE UN COMMODORE-64...? SI ES ASÍ 
ENTONCES NUESTROS PROGRAMAS SON PARA UD. 


GRAFICOS-64 


Le permite trabajar en modo alta resolución. Traza pun- 
tos, lineas, rellena áreas de color, define colores de 
pantalla y fondo, abre ventanas en la pantalla, escribe y 
superpone textos en los gráficos, invierte textos. 35 
nuevos comandos harán de su trabajo una diversión 
MANUAL EN CASTELLANO 


P.V.P. en disco 9.000.— Pts 
P.V.P. en cinta 7.500.— Pts 


EXTENSION DE BASIC 


Potencie el sistema operativo de su COMMODORE-64 
con este cartucho que añade 42 nuevos comandos - de 
gran utilidad. Trabaje con BASIC 4.0 de COMMODORE. 
Podrá localidar y corregir programas con gran facilidad, 
pasar programas de un CBM-8000 a un 64, potenciar el 
editor, y conectar sin ningún interface, sólo con un 
cable, su 64 a una impresora CENTRONIC MANUAL EN 
CASTELLANO 


P.V.P. 25.000.— Pts 


DESENSAMBLADOR 


Le permite desensamblar cualquier programa realizado 
en códico máquina. INSTRUCCIONES EN CASTELLANO 


P.V.P. 2.000 Pts. en cinta 


BASE DE DATOS 1 


Es algo más que un potente generador de aplicaciones 
Los programas por aplicación son ilimitados. Aporta un 
nuevo lenguaje con más de 40 nuevos comandos. Podrá 


diseñar su propia configuración, con registros de hasta 
1000 caracteres y gran facilidad de modificación de los 
mismos. 127 campos por registro. Contará con 15 fiche- 
ros por aplicación ilimitados. Los ficheros de clave y de 
memoria son así mismo ilimitados. Enlace con EASY 
SCRIP. Calendario aritmético. Esta Base de Datos es el 
número uno en su género, algo que Vd. debe tener para 
su trabajo. MANUAL EN CASTELLANO 


P.V.P. 22.500 Pts. 


¿LE GUSTARIA COMPONER MUSICA? 


Nuestro programa hará de Vd. un melómano. MUSICA- 
64 controla tres voces en un rango de 8 octavas cada 
voz. Sonarán en cualquiera de estos 4 instrumentos: 
órgano, clavicornio, silofón y trompeta. Podrá introducir 
2.000 notas por voz, y una vez compuesta su música, 
archívela en cinta o en disco. INSTRUCCIONES EN CAS- 
TELLANO. 


P.V.P. en cinta 4.000 Pts. 
P.V.P. en disco 5.000 Pts 


QUIMICA 


Lecciones asequibles de química para sus hijos y para 
todos los padres de los hijos que estudian química 
P.V.P. 2.000 Pts. en cinta 

BASE DE DATOS Il 


12 opciones presentadas en el menú. Cree nuevos fi- VELOS AK-64 

cheros de datos. Cuenta Vd. con 12 campos. Esta Base , 
de Datos es ideal para personas que empiezan a intro- Su soporte para programar, capaz de ordenar 500 matri- 
ducirse en este método de trabajo ces en 30 segundos. 

P.V.P. 4.000 Pts P.V.P. 2.000 Pts. en cinta 


¡NO NOS OLVIDAMOS DE LOS NIÑOS NI DE LA TARDE DEL DOMINGO! 


JUEGO DE LOS PALILLOS 


Cace los palillos movibles y con joy-stick enciérrelos en 
el menor área posible, pero ¡ojo! los palillos se mueven 
en todas direcciones 


GUERRA DE TANQUES 

Prepárese a rechazar un ataque de la brigada de tanques 
demostrando su puntería 

CACTUS 

En su desierto particular, tiene Vd. un hermoso cactus al 
que amenazan los topos, las águilas y los pájaros 
COMECOCOS 

El popular juego ahora disponible para su 64. 


P.V.P. 2.000 Pts. por juego en cinta 
P.V.P. 6.000 Pts. por los 4 juegos en disco 


Talon adjunto ([ Contra Reembolso 


Firma: 


A AAN A a 


A A A E AAA 
digo Postal EA Ciudad (E a PA 
(AAA en lr a 


¡TENEMOS ALGO MUY IMPORTANTE! 
CONTROL DE ALMACEN 


Toda aquella empresa que tenga problemas de almacén no debe pararse 
en este anuncio. Debe llamarnos y le explicaremos con detalle este 
programa. El espacio no da para más, pero he aquí un avance: 

- 1.500 referencias son controladas por almacén, en unidades, litros, 
kilos, metros, etc., stock mínimo, y lo propio de estos programas, 
etiquetas, etc 
Pero además el programa tiene una opción de anotación para los 
gratos de su empresa, con análisis de rentabilidad de su negocio, sin 
pasar por contabilidad. De manejo sencillo. TODO EN CASTELLANO. 
El programa se presenta en disco. 

P.V.P. 35.000 Pts. Ref: SD14 
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JUEGOS 


“saltador”” 
(versiones VIC y COMMODORE 64) 


Este juego consiste en hacer bajar 
al saltador por las escaleras sin que 
caiga por unos agujeros abiertos ar- 
teramente por el ordenador. Entre la 
versión de programa para el VIC con 
la figuración de memoria mínima (es 
decir, sin expansión alguna). En la 
versión del 64, no hay ningún proble- 
ma. 

Una vez funcione, en la pantalla del 


9 M=3:T=150:D=5:X=25:P=61 :¿POKES5,16 
B:POKES6,29:S5=36876 :POKE36878,15:60 
TO10012 


1 C=27:F%=5:FORI=7680T08185:POKEI,S 
9 ¿NEXT 


2 FORI=7792107723:POKEI,53:NEXT FOR 
I=7812107833:POKEI,53:NEXT :FORI=790 
9107921 :POKEI,53:NEXT 

3 POKE36879,C:FORI=8032T08053:POKEI 
¿53 :NEXT :FORI=8142T08163:POKEI,53:N 
EXT 

4 FORI=38400T038384+21 :POKEI,4:NEXT 
S FORI=3842371038510+21 :POKE1,FX%:NEX 
7 

6 FORI=38576T038598+21 :POKE1 FX :NEX 
T 

7 FORI=28708T038720+21 :POKE1 ,FX%:NEX 
T 


3 FORI=38818T038840+21 ¿POKEI,FX:NEX 
T:60SUB19020:FORI=1T01900:NEXT 


9 I=7790 


19 1F1/2=INT<I/2>THENPOKEI-1,59:60S 
UB110 


11 IF1/2=INT<I/29THENPOKE1,S5:FORJ= 
1TOT:NEXT:G0TO14 


13 POKEI-1,59:POKEI,56:FORJ=1TOT NE 
XT :B=7812:GO0SUBS10 


14 IFPEEK<197>=32THENGOSUB20 


15 IFPEEK<1+22)=54THENPOKE 1,59 :GOTO 
39 


16 IFPEEK<1+22>=60THENSOO 


VIC aparecerán unas estructuras uni- 
das por unas escaleras; después de 
unos instantes saldrá nuestro «salta- 
dor» caminando normalmente. Cuan- 
do se aproxime a un agujero deberá 
hacerlo saltar. Si lo hace demasiado 
pronto, es muy probable que el salta- 
dor caiga por el agujero. Si llega a 
bajar por la última escalera, el orde- 
nador cambiará de pantalla, y acele- 


LISTADO PARA LA VERSIÓN DEL VIC 


17 I=1+1:1F1>7811THENI=7790:POKE781 
1,59 


18 GOTO18 

20 I=I-21:POKEI+21,59 

21 IFPEEK<1+22><>590RPEEKC1+44)<353 
THENSC=SC+X :POKE 1-22,P :GOSUB1 12 :POK 
El-22,59 


23 POKEI,S5:FORJ=1TOT ¿NEXT :I=1+23:1 
FI>7811THENI=7790:P0KE7811,59, 


24 POKE?7789,59:POKE7790,59 


25 FORJ=1TOT ¿NEXT :POKE1-23,59:POKE1I 
+55 ¿RETURN 


30 1=7898 


31 IFI/2=INT<1/2>THENPOKE I+1,59:60S 
UB110 


32 IF1/2=INT<1/2>THENPOKE 1,58 :FORJ= 
1TOT ¿NEXT :GOTO34 


33 POKEI+1,59:POKE1,57 :¿FORJ=1TOT ¿NE 
XT :B=7900 :GOSUBS19 


34 IFPEEK<197>=32THENGOSUB40 


35 IFPEEK<1+22)=54THENPOKEI,59:GOTO 
se 


36 IFPEEK<I+22>=60THENSG0 


37 1=1-1:1F1<7878THENI=7898 :POKE7S87 
8,59 


38 G0TO31 
40 I=1-23:POKEI+23,59 
41 IFPEEK<14+22><>590RPEEKC1+44)<>53 


THENSC=SC+X :POKE I-22,P :G0SUB112:POK 
El-22,59 


por R. PARDO 


rará automáticamente al saltador (só- 
lo en la versión del VIC). En la ver- 
sión del 64 al inicio del programa 
muestra las instrucciones de juego. 

Para hacer saltar el saltador debe 
pulsar la barra espaciadora en ambas 
versiones, o el botón de fuego del 
joystick en la versión del 64. 

En ambas versiones se incrementa 
el tanteo medio al cambiar de pantalla. 


43 POKEI,58:FORJ=1TOT ¿NEXT :1=1+21 :1 
F1I<7878THENI=7898 :POKE78783,59 


44 POKE7856,59:POKE7855,59 


45 FORJ=1TOT ¿NEXT :POKE 1-21 ,59:POKEI 
+38 ¿RETURN 


5e I=8019 


S1 IF1/2=INTC1/2>THENPOKEI-1,59:G0S 
UB110 


52 IFI/2=INT<1/2)>THENPOKEI 55 :FORJ= 
1TOT ¿NEXT :GOTOS4 


53 POKEI-1,59:POKEI ,56:FORJ=1TOT ¿NE 
XT :B=8032 :GOSUBS10 


54 IFPEEK(197>=32THENGOSUBEO 


55 IFPEEK<1+22>=54THENPOKE 1 ,59:GOTO 
70 


56 IFPEEK<1I+22>=60THENSOO 


57 I=1+1:1F1>8031THENI=8010 :POKES03 
1,59 


58 GOTOS1 


60 I=I-21:POKEI+21,59: IFPEEK<1><>59 
THENSC=SC+300 


61 IFPEEK<1I+22><>590RPEEKC1+44)<>353 
THENSC=SC+X :POKE 1-22 ,P :GOSUB1 12 ¿POK 
El-22,59 


63 POKEI,55:FORJ=1TOT ¿NEXT :1=1+23:1 
FI>8031THENI=80109 :POKES031,59 


64 POKES909,59:POKES810,59 


65 FORJ=1TOT :NEXT :POKE1-23,59:POKEI 
,35:RETURN 


(continúa en la pág. siguiente) 
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LISTADO PARA LA VERSIÓN DEL VIC 


70 1=8140 


71 IF1/2=INT<I/2>THENPOKEI+1,59:G0S 
UB11O 


72 1F1/2=INT<1/2>THENPOKE 1,58: FORJ= 
1TOT ¿NEXT :GOTO74 


73 POKEI+1,59:POKEI,57 :FORJ=1TOT:NE 
XT :B=8142 :G0SUBS19 


74 IFPEEKC197>=32THENGOSUB8G 


75 IFPEEKC14+22>)=54THENPOKE 1,59 :GOTO 
109 


76 IFPEEK<1+22>)=60THENSOG 


77 I=1-1:1FI<8120THENI=8140:POKES812 
B,59 


78 GOTO?1 

80 I=1-23:POKEI+23,59 

81 IFPEEK<1I+22><>590RPEEK<1+44)<353 
THENSC=SC+X :POKE 1-22 ,P :G0SUB112:POK 
El-22,59 


83 POKEI,58:FORJ=1TOT:¿NEXT:1=1+21:1 
FI<8120THENI=8140:P0OKE8120,59 


84 POKES098,59 :POKES097,59 


85 FORJ=1TOT ¿NEXT :POKEI-21,59:POKEI 
58 ¿RETURN 


100 P=P+1 : 1FP=64THENP=61 
101 D=D-1:T=T-59 
102 X=X+50 : IFX>125THENX=25:D=8:T=15 


0:0=27 :F%=5 

103 IFX=7STHENC=232 :F%=09 
104 IFX=125THENC=8 :F%=7 
105 GOTO2 


110 POKES,140:FORY=1T010:NEXT :POKES 
+03 RETURN 


111 POKES+1,190:FORY=1T025 ¿NEXT ¿POK 
ES+1,0: RETURN 


112 FORO=1T015:POKES,200+0 :NEXTO :PO 
KES,0 RETURN 


113 FORO=29T09STEP-1 :POKES,238+0:FO 
RY=1T025 ¿NEXTY,O:POKES,0 :RETURN 


500 G0SUB1 13 :M=M-1 : IFM=0THENSO2 


501 P=61 :X=25:D=6:0=27:T=150:F%=5:P 
OKEI,59:G0OTO2 


502 POKE36869,240 :PRINTCHR$<147>;SP 
C(225>;"SE ACABO!" :PRINT:PRINT"SU P 
UNTUACION ES "sc 

503 PRINT:PRINT"OTRA VEZ?" 


504 K=PEEK<197) : IFK=320RK=64THEN504 


505 IFK=41THENRUN 
506 END 
510 IFINTC<RNDC1>XD>+1<>1THENRETURN 


511 L=INT<RNDC1k21>+1 2: 1FL=200RL=1T 
HENS11 


512 POKEB+L ,60:GOSUB1 11 ¿RETURN 


10909 DATA255,129,66,66,36,36,24,25 
5 


10002 DATA66,126,66,66,66,126,66,66 

10003 DATA12,8,13,62,44,12,18,33 

10004 DATA24,16,24,24,24,16,16,24 

10005 DATA24,8,24,24,24,8,8,24 

10006 DATA24,8,88,62,26,24,36,66 
DATAG,0,0,0,0,0,0,0 

10008 DATA129,66,66,66,98,34,234,34 

10009 DATA27,10,27,17,27,0,0,0 

10019 DATAS9,10,11,9,11,0,0,0 

109011 DATA91,74,91,81,91,0,0,0 


10012 RESTORE :FORI=7592T07679 :¿READA 
POKEI,A:NEXT 


10015 POKE36869,255 
10016 GOTO1 
10020 FORI=7832T07898STEP22:POKEI,5 


4 :NEXT :FORI=7901T08011STEP22:POKEI, 
54 ¿NEXT 


10021 FORI=8852T081408STEP22:POKE1,5 
4 :NEXT :FORI=38552T038618STEP22 :POKE 
1,6:NEXT 


10022 FORI=38621T038731STEP22 :POKEI 
+6 ¡NEXT ¿FOR1=38772T038860STEP22 :POK 
El,6:NEXT 


10023 POKE83143,54 :POKE8165,54 :POKE3 
8863,6 :POKE38885,6 ¿RETURN 


READY. 


LISTADO PARA LA VERSIÓN DEL COMMODORE 64 


Y REM SALTADOR PARA 64 64 

5 GOSUB3090:PRINT"[ CLR ]";"[CRSRRI 
[CRSRRICCRSRARICCRSRRICORSRRICORSRRI 
[CRSRRICCRSRRICCRSRRICCORSRRICORSRRI 
INICIALIZA" 

19 M=3:T=10:D=5:X=25:P=61 :POKESS,16 
¿POKES6,64 :S=54272 :POKES3281,1:G0TO 
370 


20 C=7:F2=5:FORI=1024T02041 :POKEI,S 
9:NEXT 


30 POKES3280,C:FORI=1964T01103 :POKE 
1,53:NEXT:FORI=1264T01303:POKEI,53: 
NEXT 


33 FORI=1424T01463:POKEI,53:NEXT :PO 
KE1425,54 :P0OKE1702,54 :POKE1865,54 


40 FORI=1664T01703:POKE1I,53:NEXT:FO 

RI=1864T01903:POKEI,53:NEXT 

50 FORI=55296T056176+39:POKEI,4 :NEX 
FORI=55456T055496+39 :POKEI ,FX%:NE 
FORI=55616T055656+39 :POKEI ,FZ:NE 


FORI=55856T055896+39:POKEI ,FZ:NE 


FORI=56056T056096+39 :POKEI ,FX% :NE 
XT :G0SUB19909 :FORI=1T01000:NEXT 


109 I=1224 :POKE1302,54 :POKE1425,54 : 
PO0KE1702,54 :POKE1865,54 


119 IF1/2=INT<1/2>THENPOKEI-1,59:260 
sub720 


120 1F1/2=INT<1/2>THENPOKEI,55:FORJ 
=1TOT ¿NEXT :GOTO140 


130 POKEI-1,59:POKEI,56:FORJ=1TOT:¿N 
EXT :B=1264 :GOSUB830 


140 IFPEEK<197>=60THENGOSUB190O 


150 IFPEEK<1+40>=54THENPOKE 1 ,59:G0T 
02408 


160 IFPEEK<1+40>=60THEN7609 


170 I=1+1:1F1>1263THENI=1224 :POKE12 
63,59 


189 GOTO110 

199 I=1-39:POKEI+39,59 

200 IFPEEK<1+40><>590RPEEK< 1+88)<95 
3THENSC=SC+X :POKE 1-48 ,P :GOSUB740 :PO 
KEI-409,59 

210 POKEI,55:FORJ=1TOT ¿NEXT :I=1+41: 
1F1>1263THENI=1224 :POKE1263,59 :POKE 
1223,59 

228 POKE1403,59:P0KE1404,59 


230 FORJ=1TOT:NEXT :POKEI-41,59:POKE 
1,55 RETURN 


240 I=1422 


250 1F1/2=INT<1/2>THENPOKEI+1,59:60 
SuB7208 


260 1F1/2=INT<1/2)THENPOKEI,58:FORJ 
=1TOT ¿NEXT :GOTO280 


270 POKEI+1,59:POKEI,57 :FORJ=1TOT:¿N 
EXT :B=1424 :GOSUB830 


280 IFPEEK<197>=60THENGOSUB3309 
290 IFPEEK<1+40>=54THENPOKE1,59:GOT 
0389 


300 IFPEEKC(1+40)=60THEN760 


310 1=1-1:IF1I<1384THENI=1422:POKE13 
384,59 


328 GOTO250 

339 I=1-41 :POKE1+41,59 

340 IFPEEK<1+40><>S90RPEEK<1+88)<>5 
3THENSC=SC+X :POKE 1-40 ,P :G0SUB749 :PO 
KEI-409,59 

350 POKE1,58:FORJ=1TOT ¿NEXT :1I=1+39: 


1FI<1384THENI=1422 :P0KE1384,59:POKE 
1344,59 


360 POKE1344,59:P0KE1343,59 


370 FORJ=1TOT ¿NEXT :POKE1-39,59 :POKE 
1,58: RETURN 


3808 I=1624 


390 1F1/2=INT<1/2>THENPOKEI-1,59:60 
SsuB7208 


(continúa en la pág. 13) 


ELEKTROCOMPUTER=-PRESENTA SUS NUEVOS PRODUCTOS PARA El VIC-20 
Y El COMMODORE -64. DATAMASTER 64 Y CONTROLADOR: C8 QUE 
AMPLIAN LAS POSIBILIDADES DE SU ORDENADOR. o 


DE VENTA EN DISTRIBUIDORES AUTORIZADOS DE TODA ESPAÑA. 


*DATAMASTER 64. SOFISTICADA BASE DE DATOS PARA EL C—64, 
PENSADA PARA TRABAJAR CON LA UNIDAD DE DISCO 1541. SIENDO MUY 
VERSATIL APROVECHA AL MAXIMO LA CAPACIDAD DE MANIOBRA Y ALMA- 
CENAMIENTO . NUMERO DE REGISTROS VARIABLE“EJ. 5000 DE 30 CA- 


RACTERES” .FORMATEADOS Y COPIAS PROGRAMADAS , SALIDA A IM- 


DISCO. GARANTIA 3 MESES . MANUAL COMPL.EN CASTELLANO — P.V.P. 11.800” PTAS. 


*CONTROLADOR - C 8 -_ CONTROLADOR DE 8 RELES 


PARA El VIC-20 Y EL C-64. DE FORMA MUY SENCILLA PODE- 
MOS HACER HASTA 255 COMBINACIONES ENTRE LOS 8 RE- 
LES , CON UN CONSUMO DE 1000 W. A 220 VOLT. CADA UNO, 
CON LO CUAL PODEMOS ACCIONAR TODO TIPO DE LUCES 0 


MECANISMOS . INSTRUC. INCLUIDAS. 3 MESES GARANTIA 
— P.V.P. 9.800” PTAS. 


VIA AUGUSTA - 120 - TEF.(93- 2180699 -BARCELONA-6 
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400 IF1/2=INTC1/2)THENPOKEI,S5:FORJ 
=1TOT ¿NEXT :GOTO420 


410 POKEI-1,59:POKE1I,S56:FORJ=1TOT:¿N 
EXT :B=1664 :GOSUB830 


420 IFPEEK<197>=60THENGOSUB470 


430 IFPEEK<1+40>)=54THENPOKE 1,59 :GOT 
0529 


4409 IFPEEK<1+40>=60THEN760 


450 I=1+1:1FI>1663THENI=1624 :POKE16 
63,59:P0KE1623,59 


460 GOTO390 


470 I=1-39:POKEI+39,59: IFPEEK<I><>5 
9THENSC=SC+300 


480 IFPEEK<1+40><>S590RPEEK<1+80><>5 
3THENSC=SC+X :POKE1-40,P :GOSUB740:PO 
KEI-40,59 


490 POKEI,55:FORJ=1TOT:¿NEXT:1=1+41: 
IFI>1663THENI=1624 :POKE1663,59 


508 POKE1641,59:P0KE1624,59:POKE162 
3,59 


510 FORJ=1TOT ¿NEXT :POKEI-41,59:POKE 
1,55 RETURN 


520 I=1862 


3 “saltador” Ñ (viene de la pág. 11) 
LISTADO PARA LA VERSIÓN DEL COMMODORE 64 


530 IF1/2=INT<1/2>THENPOKEI+1,59:60 


SsuB720 


540 IF1/2=INT<1I/2>THENPOKEI,58:FORJ 


=1T0OT ¿NEXT :GOTOS69 


550 POKEI+1,59:POKE1,57 :FORJ=1TOT ¿N 


EXT :B=1864 :GOSUB830 
560 IFPEEK<197>=60THENGOSUB610 


570 IFPEEK<1+40>=54THENPOKE 1 ,59:GOT 


0668 


580 IFPEEK<1+40>)=60THEN760 


599 I=1-1:1FI<13824THENI=1862:POKE18 


24,59 
699 GOTOS308 
610 I=1I-41:POKEI+41,59 


620 IFPEEK<1+40><>590RPEEKC1+80><>5 
3ITHENSC=SC+X :POKE 1-40 ,P :G0SUB7409:PO 


KEI-40,59 


630 POKEI,58:FORJ=1TOT ¿NEXT :1=1+39: 


1FI<1824THENI=1862 :POKE1824,59 
640 POKE1784,59:P0KE1783,59 


650 FORJ=1TOT ¿NEXT ¿POKEI-39,59 :POKE 


1,58 ¿RETURN 


y” 
h 


669 P=P+1:IFP=64THENP=61 


670 D=D-1:T=T-.1 


680 X=X+50 : IFX>125THENX=25 :D=8:T=10 
2C=5:F%=5 


698 IFX=73THENC=0:F%=0 


700 IFX=125THENC=8 :F2=7 


710 GOTO3O 


720 POKES+4,17:POKES+5,132:POKES+6, 
132 :POKES+24,6 


721 HO0=28 :L0=49 :POKES+1 ,H0:POKES,LO 
:FORZ=1T0200 ¿NEXT :GOSUB2090 ¿RETURN 


740 POKES+24,15:POKES+4,17 :POKES+5, 
132 :POKES+6,132 


741 FORH1=21T0126:POKES+1,H1:L1=181 
¿POKES,L1 ¿NEXT :G0SUB2090 ¿RETURN 


769 POKES+24,15:POKES+4,17:POKES+5, 
33 :POKES+6, 132 :H2=233 


765 H2=H2-5 ¿POKES+1 ,H2 :L2=181 :¿POKES 
»L2 


766 POKEI,58:POKEI-40,59:POKE1+5427 
2,0:1=1+409:IFI<1983THEN?765 


767 GOSUB20B1 


769 M=M-1 : IFM=9THEN780 :POKES+1 ,H2:L 
2=181 :POKES,L2:NEXT :GOSUB2901 


770 P=61 :X=25:D=6:0=27 :T=10:F%=5:PO 
KE1,59:G0T030 


789 POKES3272,21 ¿PRINTCHR$< 147) SPC 
(205) ;" [CRSRRICCRSRRICORSRRICORSRRI 


(termina en la pág. siguiente) 


PROGRAMAS STANDARD Y «A MEDIDA» PARA EQUIPOS COMMODORE 


VIC-20 


— CONTABILIDAD 

— GESTIÓN COMERC. 
- STOCK ALMACENES 
- VIDEO CLUB 

- ENTRAPUNT 


COMMODORE-64 


CONTABILIDAD 
GESTIÓN COMERC. 
CONTROL DE STOCKS 
RECIBOS-ETIQUETAS 
ETC. — ALMACÉN 
— NÓMINAS 


- DIRECCIÓN 


=- AUTOVENTA 
- CONTROL SOCIOS 
- PRODUCCIÓN 


SISTEMA 8000 


- CONTABILIDAD (10MB) — FINCAS 
— GESTIÓN COMER. 
- 9000 ARTÍCULOS 
— GEST. INTEGRADA 


SISTEMA 8000 


— IND. CÁRNICAS 

— EMP. LIMPIEZA 

- COOPERATIVAS 

- TALLERES 

- COMPONENTES 

- PIENSOS 

- COLEG. PROFES. 

— CADENAS MONTAJE 
- ETC. 


Avenida César Augusto, 72 - Teléfonos 235682 y 226544 
ZARAGOZA -3 
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LISTADO PARA LA VERSIÓN DEL COMMODORE 64 


[CRSRRICCRSRRICCORSRRITORSRRICORSRRI 
SE ACABO!" :PRINT 


785 PRINT"UCRSRDJ[CRSRRI[CRSRRICCRSRRI 


[CRSRRICCRSRRISU PUNTUACION ES DE">3 
sc 


7908 PRINT:PRINT" [CRSRDICCRSRRICCRSRRI 
ECRSRRICTCRSRRI[CRSRRITCRSRRICORSRRI 
ECRSRRICCRSRRI [CRSRRICCRSRRICORSRRI 
E[CRSRRIOTRA VEZ?" 

809 K=PEEK<197) : IFK=60THENS90 


810 IFK=13THENPRINT"[ CLR J":RUN 


2092 H3=10:L3=143:POKES+1,H3:POKES, 
L3:FORT=1T01000 ¿NEXT :GOSUB20890 ¿RETU 
RN 


3088 PRINT"[ CLR JCCRSRDI[CRSRDIPAR 
A PUNTUAR, DEBE SALTAR SOBRE LOS 
AGUJEROS PARA QUE EL HOMB" 3 


3002 PRINT"RE ESTE EN LA MEJOR 
POSICION SOBRE LOS AGUJ 
EROS" 


3018 PRINT"[CRSRDI[CRSRDISE INCREME 
NTA EL PUNTAJE CUANDO SE COMPL 
ETA LA PANTALLA 


3020 PRINT"[CRSRDI[CRSRDI25 PTS POR 
AGUJERO <PANTALLA 1>" 


3025 PRINT"[CRSRDI[CRSRDI7S PTS POR 
AGUJERO <PANTALLA 2>" 


3630 PRINT"[CRSRDI[CRSRDI125 PTS PO 
R AGUJERO (PANTALLA 3>" 


3049 PRINT"[CRSRDICCRSRDI [CRSRDIPAR 
A SALTAR PULSE “ESPACIO” " 


3050 PRINT"PULSE ESPACIO PARA SEGUI 
R" 


3969 GR=PEEK<197> : IFGR<O)68THEN3060 
3078 RETURN 
READY. E 


820 IFK=39THENPRINT"[ CLR J[CRSRDICCRSRDI 


TCRSRDJT[CRSRDI[CRSRDICCRSRDICCRSRDI 
TCRSRDJCCRSRDICCRSRDI[CRSRRICCRSRRI 
TCRSRRICCRSRRI [CRSRRICCRSRRICCRSRRI 
[CRSRRIADIOS! ! "3 ¿FORbW=1T0500 ¿NEXT :P 
RINT"[ CLR 1":END 

825 60T0808 

838 IFINT<RND<1)AD>+1<>1THENRETURN 


840 L=INTCRNDC1)K39>+1 : IFL=200RL=1T 
HEN840 


859 POKEB+L ,60:G0SUB720 ¿RETURN 
868 DATA255,129,66,66,36,36,24,255 
870 DATAE5,126,66,66,66,126,66,66 
889 DATA12,8,13,62,44,12,18,33 
899 DATA24,16,24,24,24,16,16,24 
900 DATA24,8,24,24,24,8,8,24 

919 DATA24,8,88,62,26,24,36,66 
9208 DATAG,0,0,0,0,0,0,0 

939 DATA129,66,66,66,98,34,34,34 
949 DATA27,10,27,17,27,0,0,0 

950 DATAS9,10,11,9,11,0,0,0 

960 DATA91,74,91,81,91,0,0,0,09 


9798 POKES3272,<PEEK<53272>AND240>+1 


971 POKES6334 , PEEK(56334 >AND254 
972 POKE1,PEEK<1>AND251 


973 FORI=9T0511:POKEI+12288,PEEK<I+ 
53248) ¿NEXT 


974 POKE1,PEEK<1>0R4 
975 POKESE334 ,PEEK<56334>0R1 


976 RESTORE :FORI=12288+53x8T012288+ 
648 :READA :POKE1 ,A ¿NEXT 


999 GOTO20 


10009 FORI=1302T01422STEP48:POKEI,54 
¿NEXT :FORI=1425T01625STEP40:POKE1,5 
4 1NEXT 


10109 FORI=1702T01862STEP40:POKE1I,54 
¿NEXT 


1015 FORI=55574T055694STEP48:POKEI, 
3:NEXT 


1020 FORI=55697T055897STEP49:POKEI, 
3:NEXT :FORI=55974T056134STEP49 :POKE 
1,3:NEXT 


1038 POKE1865,54 :POKE1905,54 ¿POKE56 
137,3:P0OKES6177,3: RETURN 


20990 POKES+4,0:POKES+5,0:POKES+6,0: 
RETURN 


2081 POKES+6,15:POKES+4, 129 1POKES+5 
,132:POKES+6,132 


división 


INFORMÁTICA 


SANTmusT 


La primera tienda especializada en el VIC-20 


e PROGRAMAS EN CASSETTE, DISQUETTE, etc. 
e IMPRESORA, MONITORES e PROGRAMAS PROPIOS 
e SERVICIO TECNICO 


INTERFACE VIC-HAM para emitir y recibir en CW y RTTY (con cualquier equipo) 
Solicite más información 


Calle Mayor, 2 - Tel. (93) 3717043 - SAN JUST DESVERN (Barcelona) 


EA-4-APW 


JOSÉ GONZÁLEZ COELLO 


Carretera Ciudad Real-Valdepeñas, Kilómetro 3 - Teléfono (926) 225713 
MIGUELTURRA (Ciudad Real) 


Distribuidor de S.C.S.-D.S.E. s/a, SITESA, TAGRA, PIHERZ, GIRÓ y otras más 


Ofrece todo lo necesario para el Radioaficionado: 

Equipos de bandas bajas KENWOOD, YAESU, SOMMERKAMP, ICOM, SWAN, etc. 
Equipos VHF KDK-FDK, YAESU, STANDARD, KENWOOD, ICOM, etc. 
Antenas CUSHCRAFT, HUSTLER, HY-GAIN, FRITZEL, TAGRA, GIRÓ, BUTTERNUT 
Amplificadores lineales para HF y VHF. TELNIX, TONO, MIRAGE, etc. 
Micrófonos, medidores, acopladores, watíimetros, receptores aficionado y profesionales, 
fuentes de alimentación varias marcas, “transverters”, torretas, cables, conectores, etc. 


Distribuidor de COMMODORE 
con su ya famoso VIC-20 y sus periféricos 
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rutina para 

el control de 
bloques libres 
en un disco 


por JESÚS DE PABLOS 


E, multitud de ocasiones, nos sería muy conveniente disponer de una 
rutina que nos informase del número de bloques libres de que disponemos 
en un disco, siempre y cuando esa rutina fuera rápida y corta. 

Existen métodos de exploración de catálogo que nos resuelven este 
problema pero su lentitud y tamaño los hacen inviables. 

Hemos comprobado que el DOS de las unidades de discos COMMO- 
DORE 8050, 8250, 9060 y 9090 memoriza en unas posiciones determinadas 
esta información. De esta forma, a través de la función «M-R», se consigue 
conocer los bloques libres de un disco en un tiempo aproximado de .05 se- 
gundos según nuestras pruebas. 

La aplicación más útil de esta rutina es la de incorporarla a los progra- 
mas de altas de ficheros. De esta forma se puede llegar a reparticiones diná- 
micas del espacio en disco, sin tener que modificar los programas porque 
nos hemos quedado sin espacio en disco. 

Aconsejamos que en la rutina de control, si se utiliza para limitar el 
número de fichas en un disco, no se pueda dejar el disco con menos de 
50 bloques libres. Ésta no es una limitación de nuestra rutina sino un con- 
sejo para todas las unidades COMMODORE, en general, que se utilicen 
para la gestión de ficheros. 

La única limitación de esta rutina es que deberá de mantenerse abierto 
durante todo el programa el canal de errores al fichero 15. 

EJ 


LTS TADO 


REM "PROGRAMA 'BLOQUES' : CONTROL DE BLOQUES 
LIBRES” 


REM "AUTOR : JESÚS DE PABLOS” 

REM "CON AUTORIZACIÓN : COPERSA - VALLADOLID” 
CLOSE15 : OPEN15,8,15: REM "ABRIR DONDE SE QUIERA” 
DR=0 : GOSUB 5000 : REM "EN DR EL DRIVE DESEADO” 
PRINT "BLOQUES LIBRES : ”+4-STRS(BF) 

CLOSE 15 : END : REM "CERRAR ANTES DE SALIR DEL 


PROGRAMA” 


REM "RUTINA DE BLOQUES LIBRES; EL RESULTADO 
EN BF” 


PRINT 4+15,"M-R"CHRS(157 + DR)CHR$(67):GET ++15,A1$ 
PRINT3415,"M-R"CHR$(159+DR)CHRS(67):GET ++ 15,425 


BF = ASC( A1$ + CHRS(0) ) + 256 * ASC( A28 + 
CHRS(0) ) 


RETURN 


En sus páginas ya se han publica- 
do, desde el n.* 1 (febrero 1982): 


O Programas para VIC-20 y para 
otros ordenadores. 


O Se han publicado artículos sobre 
los siguientes temas: 


— Serie de artículos sobre los 
microprocesadores con análi- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de semá- 
foros en la vía pública, Sis- 
tema de alarma anti-robo, 
Sencilla aplicación para mo- 
tores de cassette o de jugue- 
tes eléctricos. 

— Rutinas útiles para la clasifi- 
cación de datos (SORT). 

— Descripción de la PIA. 

— Los convertidores analógico- 
digitales y digital-analógicos. 

— Nuevos equipos operativos 
de burbujas magnéticas para 
la investigación y las aplica- 
ciones industriales. 

— los cálculos de puentes de 
medida realizados con micro- 
ordenador, 

— VIC-20 y micros PET/CBM. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AlM- 
65. 

— las impresoras. 

— Temporizador programable: 
aplicación real de un sistema 
controlado por microprocesa- 
dor. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AlM- 
65, equipo en el que se han 
incluido versiones de Basic 
para ayudar en la enseñanza 
de lenguajes de programa- 
ción. 

— «Bemol», un juego musical. 

— Interfaz universal de múlti- 
ples aplicaciones. 

— «Otelo»: un juego de estra- 

tegas. 


R. E. DE ELECTRÓNICA 
Apart. 35400 - Barcelona 


provincia to endo a 
se suscribe por un año a partir del 
número de «R, E. de Electrónica» 
delimen dera ao 
por el precio de 1.975 pesetas. 
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MARKETCLUB 


O CBM 4.032. Intercambio programas. José Marcé Mestres. Calle Se- 
villa, 5. Tel. (93) 803 77 51, de 8 a3. VILANOVA DEL CAMí (Barcelona). 


e ACCESORIOS VIC-20: Ampliación de memoria 16K más varios pro- 
gramas, 13.000. Módulo de expansión para 6 cartuchos, 10.000, Car- 
fucho lenguaje FORTH y manual, 7.000. Las tres cosas sólo por 25.000. 
Jaime. Tel. 245 46 56. BARCELONA. 


O En Barcelona, clases de informática. PLAZAS LIMITADAS. Lenguaje 
BASIC. Prácticas con micro-ordenador VIC-20. Prof. E. Martínez de 
Carvajal. Información: Tel, (93) 345 10 00. Señorita María José (maña- 
nas) o (93) 345 87 75. Sr, Martínez (fuera de horas de oficina). 


O Desearía vender por 40.000 ptas.: VIC-20, con cartucho Super Ex- 
pander, las dos partes del Curso, el «joy-stick» y un juego Indescomp, 
fodo comprado en diciembre del 82. Fernando rtínez, calle La 
Roda, 39, 52 D, Teléfono 23 41 82. ALBACETE. 


O Tengo un PET 2001/8K y desearía tener el cassetíe «Monitor para 
lenguaje Máquina», También desearía contactar con usuarios o clubs 
del PET si los hay. José Manuel Cámara Mas, calle Castor, 32, bloque 
11, 32, puerta 1. ALICANTE. 


O Programación de ordenadores personales; organización explota- 
ción de ficheros; programas ordenadores auxiliares, para cuestiones 


empresariales, profesionales, administrativas, científicas. Mora Mas. 
Carlos 111, 41. Teléfono 339 98 29, BARCELONA.-28, 


O Vendo impresora Seikosha GP-100-VC para VIC-20, Commodore 64. 

Como nueva: 43.000 plas. Regalo muchos programas gráficos al com- 

e Llamar horas comida y cena, Fco. Gutiérrez. Tel. 253 13 40. 
antiago Rusiñol, 12, MADRID-3. 


O Vendo VIC-20 con expansión 16K, superexpander, curso de pro- 

gramación BASIC (los dos tomos), guía de referencia del programador 

x cartucho de juegos. Todo en perfecto estado. Precio: 55.000 pias. 
ngel Jiménez, Teléfono (954) 458 320. SEVILLA. 


O Vendo VIC-20, ampl. de memoria 16K RAM, cassette. Libros: Ma- 
nual VIC-20, Reference's, VIC Revealed y 25 programas muy buenos: 
«Comecocos», «Blitz», «S, de Ecuaciones», «Matrices», etc. Por sólo 
55.000 ptas. David. Badalona, 102, Tel. (91) 734 11 03. MADRID-34, 


EJEMPLARES ATRASADOS DE 
«CLUB COMMODORE» 


Para poder satisfacer la creciente demanda de nú- 
meros atrasados de nuestra Revista, agotada en todas 
sus ediciones, hemos puesto en marcha un Servicio 
para suministrar fotocopias de los ejemplares que nos 
sean solicitados. Para recibir las fotocopias de una o de 
varias ediciones, no hay más que enviarnos el boletín 
con los datos indicados. 


SERVICIO DE FOTOCOPIAS 


NÚMERO DE LA EDICIÓN SOLICITADA 


o|ifajo elolol7[alo om 
PANA ESE 


(Poner una X debajo del número de edición pedido) 


Peticionario: D. 


Poblacion naineses 
PrOVINCIA rr 
Forma de envío: contra-reembolso Precio de la edición fotocopiada: 250 ptas. 


SUFTWARE 


COMMODORE 44 


si piensa utilizar su C-64 
solamente para jugar... 
usted no necesita estos 
programas: 


GESTIÓN COMERCIAL 


900 artículos 
500 clientes 
500 albaranes 
500 facturas 
etc. 


GESTIÓN STOCK 


1.000 artículos 
1.400 movimientos o 
apuntes por período 


BASE DE DATOS 


diseñe un fichero 
totalmente 
a su gusto 


PROGRAMAS 
EN DISCO 


INFORMACIÓN: calle Consejo de Ciento, 563 - Tel. (93) 2319587 - Barcelona-13 
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Microprocesador: 6502 Je MOS 

TECHNOLOGY de 8 bits. 

Memoria: 5 Kbytes de RAM ampliables a 32 K 

20 Kbytes de ROM ampliables a 28 K. 

Pantalla: 23 líneas de 22 caracteres. Modulador para 
conectar a un televisor normal. Salida monitor video. 
Colores: 8 para el marco, 16 para el fonde de la pan- 
talla y 8 para los caracteres individuales, video inverso. 
Gráficos: Semi-gráficos por teclado y alta resolución 
por redefinición del generador de caracteres (situán- 
dolo en RAM). Definición de 176 por 184 puntos. 
Teclado: Tipo QWERTY de 62 teclas más cuatro de 
función definibles por el usuario. 

Sonido: Tres voces de tres octavas cada una decaladas 
una octava entre sí, resultando una extensión total de 
cinco octavas. Un generador de ruido aleatorio afina- 
ble para efectos especiales, un control general de 
volumen. 

Programación: Lenguaje BASIC, intérprete residente 
en ROM de 8K. Posibilidad de interceptar las funcio- 
nes del Basic para crear nuevas instrucciones “a medi- 
da”. El Basic del Vic es uno de los rápidos actualmen- 
te en el mercado. 

Complementos: Port de usuario de 8 bits entrada/sa- 
lida más dos señales de sincronismo. 

Bus de expansión para ampliaciones de memoria 

y periféricos. 

Port de juegos con conexión para dos potenciómetros 
(paddles), y una palanca de juegos (joystick). 
Almacenamiento de masa: Unidad de cassette C2N 

de diseño especial para registrar programas y datos. 
Ampliación de memoria: En caso de ser necesario 
conectar más de un cartucho al mismo tiempo, está 
disponible un módulo (VIC 1020) que permite la 
conexión simultánea de hasta seis cartuchos. 
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VIC-1541 UNIDAD DE.DISCO 


Capacidad total: 174848 bytes por disco. 
Secuencial: 168656 bytes por disco. 

Entradas de directorio: 144 por disco. 

Sectores por pista: De 17 a 21. 

Bytes por sector: 256. 

Pistas: 35. 

Bloques: 683 (644 bloques libres). 

Soportes de información: Discos standar de 5 1/4 
pulgadas, de una sola cara y densidad simple. 
Sistema operativo: DOS de COMMODORE inteli- 
gente (tiene procesador propio y no ocupa memoria 
del ordenador central). 


VIC-1525 IMPRESORA 


Método de impresión: Matriz de $ x 7 puntos, impac- - 


to por un solo martillo. 

Modo caracteres: Mayúsculas y minúsculas, simbolos, 
números y caracteres gráficos del VIC-20. 

Modo gráfico: Puntos direccionables (bit image). Siete 
puntos verticales por columna, 480 columna máximo. 
Velocidad: 30 caracteres/segundo, de izquierda a dere- 
cha, unidireccional. 

Caracteres/Línea: Máximo 80. (Posibilidad de impre- 
sión en doble ancho). 

Espaciado entre líneas: 6 lineas/pulgada —modo carac: 
teres, 9 lineas/pulgadas— modo gráfico. 

Alimentación de papel: Arrastre por tractor. 

Ancho de papel: Entre 4,5 y 10 pulgadas. 

Copias: Original más dos copias. 


CARTUCHOS 


Ayuda programador: Facilita la edición y depuración 
de programas en Basic. Instrucciones y comandos: 
RENUMBER, MERGE, FIND, CHANGE, DELETE, 
AUTO, TRACE, STEP, OFF, KEY, EDIT, PROG, 
DUMP, HELP y KILL. 


" commodore 


COMPUTER 


microelectrónica 
y control, s.a. 


Super expander: Intercepta el Basic del VIC permi- 
tiendo incrementar sus instrucciones y comandos en 
aplicaciones gráficas de sonido y juegos. Instruccio- 
nes y comandos: KEY, GRAPHIC, COLOR, POINT. 
REGION, DRAW, CIRCLE, PAINT, CHAR, 
SCNCLR, SOUND, RGE, RCOLR, RDOT, RPOT, 
RPEN, RIOY y RSND. 

Monitor de lenguaje máquina: Facilita enormemente 
la depuración de programas en lenguaje máquina, es 
ideal como complemento del Basic para redactar y 
poner en marcha rutinas de alta velocidad y manejo 
de datos en tiempo real. Instrucciones y comandos: 
ASSEMBLE, BREAKPOINT, DISASSEMBLE, 
ENABLE. VIRTUAL ZERO PAGE, FILL MEMORY, 
GO, HUNT, INTERPRET, JUMP TO SUBROUTINÉ, 
LOAD, MEMORY, NUMBER, QUICK TRACE, 
REGISTERS, REMOVE BREACPOINTS, SAVE, 
TRANSFER, WALK y EXIT TO BASIC. 

Además existen cartuchos de ampliación de memoria 
de 3,8 y 16 Kbytes. 


CURSO DE INTRODUCCION 
AL BASIC PARTE 1 y |1. 


En forma de libro se ha editado la primera y segunda 
parte de un curso de Basic que parte “de cero” y 
está basado en el VIC-20. Van acompañados de dos 
cassettes con programas y ejercicios para autocontrol. 


PLOTTER VIC 1520 


Método de impresión: Dibujo mediante bolígrafos de 
diseño especial. 

Color: 4 colores; negro, azul, verde y rojo con cambio 
desde programa. bi 

Cabezal: Ploter X-Y tipo tambor. 

Velocidad de impresión: Media de 14 car./seg. 
Caracteres por línea: Máximo 80 carac., formatos de 
80, 40, 20 y 10 carac./línea. 

Juego de caracteres: 96. 

Velocidad de dibujo:264 pasos/seg. 

Longitud del paso: 0,2 mm. en dirección X e Y. 
Velocidad de dibujo de línea: 52,8 mm./seg. en direc- 
ción X e Y. 73 mm./seg. en una línea a 45 grados. 
Area de dibujo: 480 pasos (96 mm.) en dirección X. 
Programable en dirección Y (Máx. + — 999 de una 
sola vez). 

Papel: Rollo de 4,5 pulgadas (114 mm.) 


MONITOR EN COLOR C-1701 


Pantalla: 13 pulgadas (330 mm.). 
Capacidad de representación: 25 lineas de 40 caracteres. 
Resolución: 320 líneas horizontales. 

Compatibilidad: VIC-20 y COMMODORE 64. 
Conectable a un registrador de video. 

Amplificador y altavoz: Incorporados. 


Taquigrafo Serra, 7 5. Telf. 250 51 03. BARCELONA-29 
Princesa; 47 3.” G. Telf. 248 95 70. MADRID-8 
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